home *** CD-ROM | disk | FTP | other *** search
/ National Lampoon's Blind Date / National Lampoon's Blind Date.iso / bd / winners.mmm / 00035_Script_35 < prev    next >
Text File  |  1995-03-01  |  3KB  |  95 lines
  1. ----------------------------------------------------------------
  2. on startMovie
  3.   puppetSound 0
  4. end startMovie
  5. ----------------------------------------------------------------
  6. on setUpFirstFrame
  7.   releaseMouseUp()
  8.   puppetSound 0
  9. end setUpFirstFrame
  10. ----------------------------------------------------------------
  11. on waitForMovie chan
  12.   repeat while the movieRate of sprite chan > 0
  13.     updateStage  
  14.     if mouseDown() then
  15.       set the movieTime of sprite chan = ¼
  16.        (the duration of cast (the castNum of sprite chan)) - 1
  17.       updateStage
  18.     end if
  19.   end repeat
  20. end waitForMovie
  21. ----------------------------------------------------------------
  22. on loopLastFrame
  23.   releaseMouseUp()
  24.   
  25.   if not soundBusy(1) then 
  26.     sound playFile 1,"Unbeliev.aif"
  27.   end if
  28.   
  29.   go to the frame
  30. end loopLastFrame
  31. ----------------------------------------------------------------
  32. on trapMouseUp
  33.   repeat while mouseDown()
  34.     if the timer > 50 then exit repeat
  35.   end repeat
  36.   when mouseUp then dontPassEvent
  37. end
  38. ----------------------------------------------------------------
  39. on releaseMouseUp
  40.   when mouseUp then nothing
  41. end
  42. ----------------------------------------------------------------
  43. on doNextScene nextFrame
  44.   PlayDown()
  45.   go to frame nextFrame
  46. end doNextScene
  47. ----------------------------------------------------------------
  48. on gosubScene scene
  49.   global returnScene
  50.   
  51.   set returnScene = the frame - 1
  52.   PlayDown()
  53.   go to frame scene
  54. end gosubScene
  55. ----------------------------------------------------------------
  56. on blinkGirl
  57.   global currGlass
  58.   
  59.   set currGlass = currGlass + 1
  60.   
  61.   if currGlass = 1 then
  62.     set the visibility of sprite 11 to TRUE
  63.     set the visibility of sprite 15 to FALSE
  64.   else
  65.     set currGlass = 0
  66.     set the visibility of sprite 15 to TRUE
  67.     set the visibility of sprite 11 to FALSE
  68.   end if  
  69. end blinkGirl
  70. ----------------------------------------------------------------
  71. on blinkGirl3
  72.   global currGlass
  73.   
  74.   set currGlass = currGlass + 1
  75.   
  76.   if currGlass = 1 then
  77.     set the visibility of sprite 11 to TRUE
  78.     set the visibility of sprite 13 to FALSE
  79.     set the visibility of sprite 15 to FALSE
  80.   else if currGlass = 2 then
  81.     set the visibility of sprite 13 to TRUE
  82.     set the visibility of sprite 15 to FALSE
  83.     set the visibility of sprite 11 to FALSE
  84.   else if currGlass = 3 then
  85.     set the visibility of sprite 15 to TRUE
  86.     set the visibility of sprite 13 to FALSE
  87.     set the visibility of sprite 11 to FALSE
  88.   else    
  89.     set currGlass = 0
  90.     set the visibility of sprite 13 to TRUE
  91.     set the visibility of sprite 15 to FALSE
  92.     set the visibility of sprite 11 to FALSE
  93.   end if  
  94. end blinkGirl3
  95.